home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / zvbld.com < prev    next >
Text File  |  1993-06-19  |  3KB  |  157 lines
  1. $!
  2. $!    This command procedure compiles the TECO-C code.  It works under
  3. $!  VMS v5.2 using VAX C v3.0.  It creates a VMS object module library
  4. $!  named TECOC.OLB.
  5. $!
  6. $ SET DEFAULT sys$login_device:[siemsen.teco.tecoc]
  7. $
  8. $! cflags := /NOLIST/NOOPTIMIZE/DEBUG
  9. $! cflags := /NOLIST/NOOPTIMIZE/DEBUG/DEFINE=(DEBUGGING=TRUE)
  10. $ cflags := /NOLIST
  11. $ IF f$search("tecoc.obj") .NES. "" THEN DELETE tecoc.obj;*
  12. $ CC'cflags' tecoc
  13. $
  14. $ IF f$search("tecoc.olb") .NES. "" THEN DELETE tecoc.olb;*
  15. $ LIBRARY/CREATE/OBJECT tecoc
  16. $
  17. $!
  18. $!  Generate the C include file containing the macro that parses the command
  19. $!  line used to invoke TECO.  The commented version is in CLPARS.TES.  Use
  20. $!  the SQU macro to squish it into CLPARS.TEC.
  21. $!
  22. $!    This line is commented out because of a bug in TECO32.  TECO32 will
  23. $!  generate an "Opcode resrved to Digital fault" when run from BATCH.
  24. $!
  25. $! mung tec$library:squ clpars.tec=clpars.tes/D:N/L:Y/B:Y/T:N/C:*/W:N/A:Y/E:N
  26. $ CC/NOLIST genclp
  27. $ LINK/NOMAP genclp,sys$share:cshare/OPTIONS
  28. $ DELETE genclp.obj;*
  29. $ RUN genclp
  30. $ DELETE/NOLOG genclp.exe;
  31. $
  32. $ CALL xcc BakSrc
  33. $ CALL xcc BldStr
  34. $ CALL xcc ClenUp
  35. $ CALL xcc CMatch
  36. $ CALL xcc DoCJR
  37. $ CALL xcc DoEvEs
  38. $ CALL xcc DoFlag
  39. $ CALL xcc EchoIt
  40. $ CALL xcc Err
  41. $ CALL xcc ExeA
  42. $ CALL xcc ExeAtS
  43. $ CALL xcc ExeB
  44. $ CALL xcc ExeBar
  45. $ CALL xcc ExeBsl
  46. $ CALL xcc ExeC
  47. $ CALL xcc ExeCCC
  48. $ CALL xcc ExeCln
  49. $ CALL xcc ExeCom
  50. $ CALL xcc ExeCrt
  51. $ CALL xcc ExeCSt
  52. $ CALL xcc ExeCtA
  53. $ CALL xcc ExeCtC
  54. $ CALL xcc ExeCtD
  55. $ CALL xcc ExeCtE
  56. $ CALL xcc ExeCtI
  57. $ CALL xcc ExeCtL
  58. $ CALL xcc ExeCtN
  59. $ CALL xcc ExeCtO
  60. $ CALL xcc ExeCtP
  61. $ CALL xcc ExeCtQ
  62. $ CALL xcc ExeCtR
  63. $ CALL xcc ExeCtS
  64. $ CALL xcc ExeCtT
  65. $ CALL xcc ExeCtU
  66. $ CALL xcc ExeCtV
  67. $ CALL xcc ExeCtW
  68. $ CALL xcc ExeCtX
  69. $ CALL xcc ExeCtY
  70. $ CALL xcc ExeCtZ
  71. $ CALL xcc ExeD
  72. $ CALL xcc ExeDgt
  73. $ CALL xcc ExeDot
  74. $ CALL xcc ExeDQU
  75. $ CALL xcc ExeE
  76. $ CALL xcc ExeEqu
  77. $ CALL xcc ExeEsc
  78. $ CALL xcc ExeExc
  79. $ CALL xcc ExeEY
  80. $ CALL xcc ExeF
  81. $ CALL xcc ExeFB
  82. $ CALL xcc ExeG
  83. $ CALL xcc ExeGtr
  84. $ CALL xcc ExeH
  85. $ CALL xcc ExeI
  86. $ CALL xcc ExeILL
  87. $ CALL xcc ExeJ
  88. $ CALL xcc ExeK
  89. $ CALL xcc ExeL
  90. $ CALL xcc ExeLBr
  91. $ CALL xcc ExeLst
  92. $ CALL xcc ExeM
  93. $ CALL xcc ExeN
  94. $ CALL xcc ExeNul
  95. $ CALL xcc ExeNYI
  96. $ CALL xcc ExeO
  97. $ CALL xcc ExeOpr
  98. $ CALL xcc ExeP
  99. $ CALL xcc ExePrc
  100. $ CALL xcc ExePW
  101. $ CALL xcc ExeQ
  102. $ CALL xcc ExeQes
  103. $ CALL xcc ExeR
  104. $ CALL xcc ExeRBr
  105. $ CALL xcc ExeRtP
  106. $ CALL xcc ExeS
  107. $ CALL xcc ExeSCl
  108. $ CALL xcc ExeT
  109. $ CALL xcc ExeU
  110. $ CALL xcc ExeUnd
  111. $ CALL xcc ExeUsc
  112. $ CALL xcc ExeV
  113. $ CALL xcc ExeW
  114. $ CALL xcc ExeX
  115. $ CALL xcc ExeY
  116. $ CALL xcc ExeZ
  117. $ CALL xcc FindES
  118. $ CALL xcc FindQR
  119. $ CALL xcc FlowEC
  120. $ CALL xcc FlowEE
  121. $ CALL xcc FlowEL
  122. $ CALL xcc GetAra
  123. $ CALL xcc GetNmA
  124. $ CALL xcc IncCBP
  125. $ CALL xcc Init
  126. $ CALL xcc InsStr
  127. $ CALL xcc IsRadx
  128. $ CALL xcc Ln2Chr
  129. $ CALL xcc MakDBf
  130. $ CALL xcc MakRom
  131. $ CALL xcc PopMac
  132. $ CALL xcc PshMac
  133. $ CALL xcc PushEx
  134. $ CALL xcc RdLine
  135. $ CALL xcc RdPage
  136. $ CALL xcc ReadCs
  137. $ CALL xcc Replac
  138. $ CALL xcc Search
  139. $ CALL xcc SinglP
  140. $ CALL xcc SkpCmd
  141. $ CALL xcc SrcLop
  142. $ CALL xcc SSerch
  143. $ CALL xcc TAbort
  144. $ CALL xcc TypBuf
  145. $ CALL xcc TypESt
  146. $ CALL xcc UMinus
  147. $ CALL xcc WrPage
  148. $ CALL xcc ZFrSrc
  149. $ CALL xcc Zvms
  150. $ EXIT
  151. $
  152. $xcc: SUBROUTINE
  153. $ CC'cflags' 'p1'
  154. $ LIBRARY/INSERT tecoc 'p1'
  155. $ DELETE/NOLOG 'p1'.obj;*
  156. $ENDSUBROUTINE
  157.